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Unclassified 


FOREWORD 


This  is  the  eleventh  report  in  the  Data  Reduction  Program  Documentation 
series.  If  is  dated  according  to  the  date  of  completion  of  the  documentation.  No 
implication  is  made  that  this  program  will  not  subsequently  be  modified,  amended, 
or  super;  ded;  on  the  contrary,  the  history  of  radar  data  processing  is  one  of  con¬ 
tinuous  evolution  of  techniques,  and  it  is  unrealistic  to  assume  that  steady-state  has 
been  reached. 

The  preparation  of  reports  in  this  series  is  under  the  Editorship  of  Charles  R. 
Bemdtson  of  Lincoln,  and  of  D.  Nessman  and  R.  French  of  Philco-Ford  Corporation. 
Inquiries,  suggestions,  corrections,  criticisms,  and  requests  for  additional  copies 
should  be  directed  to  C.  R.  Bemdtson. 

The  principal  contributor  to  this  report  was  G.  L.  Shapiro  (Philco-Ford). 

Due  to  the  intricate,  evolutionary  manner  in  which  the  programs  came  into  being, 
the  editors  regret  that  it  is  in  general  impossible  to  give  due  credit  to  all  --  mathema¬ 
ticians  or  radar  analysts  or  programmers  --  who  contributed  to  the  definition  and 
writing  of  the  programs. 
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(The  units  given  for  certain  quantities  are  the  units  commonly  used  for  those 
quantities,  unless  otherwise  noted. ) 


ADT 

ALCOR 

ALTAIR 

Alt 

APS 

ARS 

Avg 

Az 


ALCOR  Data  Tape 

ARPA -Lincoln  C-band  Observables  Radar 

ARPA  Long-Range  Tracking  and  Instrumentation  Radar 

Altitude  (km) 

Average  Pulse  Shape 
ALTAIR  Recording  System 
Average,  Averaging 
Azimuth  (deg) 


c  Speed  of  Light 

CADJ  Adjusted  Calibration  Constant  (db) 

C-band  ALCOR  frequency,  5664  MHz  (NB)  and  5667  MHz  (WB) 


DBLT  Wide  Band  Pulse  Doublet 

DCO  Designations  and  Communications  Operator 

El  Elevation  (deg) 

EOF  End  of  File 


e 


« 


GMT  Greenwich  Mean  Time 

h  Hours 

Hz  Hertz 


TT7 

ir 

Intermediate  Frequency 

in 

Inches 

1RV 

Inter -Range  Vector 

LC 

Left  Circular  Polarization 

lsb 

Least  Significant  Bit 

min 

Minutes 

NB 

Narrow  Band 

NRTPOD 

Non -real  Time  Precision  Orbit  Determination  Program 

POD 

Project  PRESS  Operation  and  Data  Summary  Report. 

Phase 

Presented  in  deg 

PRF 

Pulse  Repetition  Frequency  (pps) 

PRI 

Pulse  Repetition  Interval  (s) 

pps 

Pulses  per  second 

pts 

Points 

« 


R  Range  (km) 

R  Range  Rate  (km/s) 

rad  Radians 

RC  Right  Circular  Polarization 

RCS  Radar  Cross  Section  (dbsm) 

RF  Radio  Frequency 


s  Seconds 

SD  Standard  Deviation  of  Wake  Velocity 

w 

SDBLT  Wide  Band  Slaved  Pulse  Doublet 

S/N  Signal -to -noise  Ratio 

T  Time 

TAL  Time  After  Launch  (s) 

Tr  Traverse  Angle  (deg) 


UHF  ALTAIR  Frequency;  415  MHz 


V  Velocity 

V  Dopplei  Velocity 
d 

V  Mean  Wake  Velocity 
w 

VHF  ALTAIR  Frequency;  155.  5  MHz 

WB  Wide  Band 

WBS  Wide  Band  Slaved 

WTR  Western  Test  Range 


e  Total  Off-axis  Angle  (deg) 

\  Wavelength 

*  Denotes  Multiplication 
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FLOW  DIAGRAM  SYMBOLS 


PROCESS,  ANNOTATION 


CD 


TERMINATOR 


SUBROUTINE:  where  NAME  Is  the  entry 
cell  Into  the  subroutine 


CONNECTOR:  where  P  specifies  fc  page  In  the 

flow  dlsgrsm,  and  L  designates 
a  statement  number  In  the  program 
listing  or  a  reference  point  In  the 
flow  diagram 

CONNECTOR:  where  X  Implies  a  continuation 
of  the  diagram  to  the  next  page 


INPUT/OUTPUT  OPERATION 


ALERT 


I. 


PURPOSE  AND  UTILIZATION 


A.  Source  of  Data 
ALCOR1 

B.  Data  Input 
ALCOR  Data  Tape  (ADT) 

1*1 

C.  I  Ascription 

^  , i  'kLERT  is  designed  to  obtain  a  summary  of  the  da|a  ava^?le  on  an 

ADT  tape.  Output  is  normally  requested  every  10th  pulse.  When  WBS,  lDBL'f,  or 
X  y**  '  - 

•SDBLT;  waveforms  are  operative,  ALERT  should  be  requested  every  pulse.  The 


data  presented  in  an  ALERT  listing  are  essential  to  run  other  ALCOR  programs. 

1  .  \ 

/  V  \ 


D. 


Output 

A  listing  of  metric  and  radar  status  data. 


s*  Yt 


% 


X 


X 


)***-&  jyJusi  jLtnJAek  - 
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II.  DESCRIPTION 

ALERT  gives  a  listing  of  metric  and  radar  status  information  correlated 

uyyv\J.>  t  Tt  &■ 

with  pulse  nos>  which  are  necessary  to  run  other  ALCOR  programs.  The  program 

should  be  run  every  pulse  when  WBS,  DBLT,  or  SDBLT  waveforms  ^reiii  use. 

/ /  \ 

The  items  listed  by  ALERT  are  determined  as  follows: 

R,  Az,  and  El  are  corrected: 


R  =  IRANGE  +TRBIAS  +TTCOR  +  RRCOR  -  RCORF 

Az  =  IAZ  +AZBIAS 

El  =  IEL  +  ELBIAS  -  ECORF 

where 

IRANGE  is  uncorrected  R 

TRBIAS  is  range  bias 

TTCOR  (transit  time  correction)  =  RR/c 

RRCOR  is  range  doppler  coupling  correction 

RCORF  is  tropospheric  refraction  correction 

IAZ  is  Az  encoder  angle 

AZBIAS  is  Az  bias  (Calibration  Record  Word  602) 
IEL  is  El  encoder  angle 

ELBIAS  is  El  bias  (Calibration  Record  Word  603) 
ECORF  is  tropospheric  refraction  correction 

Alt  is  computed  as  follows: 

Alt  =  (R2  +  R  2  +  2  RR  sin  El)^  -  R 
e  e  e 

where  Rg  =  radius  of  earth  (6378. 145  km) 
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RCS  is  always  the  NB  isal  time  RCS  whether  the  ADT  is  NB  or  WB.  It  is 
obtained: 

LC  RCS  =  (IPPRCS)  (80/255)  -  40 
RC  RCS#=(IOPRCS)  (80/255)  -  40 

where 

IPPRCS  is  Data  Record  Byte  802 
IOPRCS  is  Data  Record  Byte  803 

A/D  count  is  given  for  Gate  52  unless  IW117  =  1  is  input.  In  the  latter  case, 

## 

IMOVP  is  given. 

The  angle  offsets  (ATr  and  AE1)  are  determined: 

P  /20 

ATr  =AZGRAD  (2  tt)  (10  a  )  (cos  11) 

P  /20 

AE1  =  ELGRAD  (2  tt)  (10  6  )  (cos  Z2) 

where 

AZGRAD  is  the  traverse  scaling  factor  (revolutions/unit  error). 
Calibration  Record  Word  612 

ELGRAD  is  the  elevation  scaling  factor  (revolutions/unit  error), 
Calibration  Record  Word  613 

P/20 

10  is  the  normalized  error  voltage 
P  (db)  =  ATr  (db)  -  REF  (db) 

3. 

Pg  (db)  =  AE1  (db)  -  REF  (db) 


Not  an  output  at  present. 

## 

IMOVP  indicates  whether  primary  and  offset  range  gates  are  being  moved  manually; 
62  to  66  counts:  not  moved;  <  62  or  >  66  counts:  are  moved;  the  separation  between 
the  primary  and  offset  gates  remains  constant,  ^ 
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ATr  (db),  AE1  (db),  and  REF  (db)  are  found  by  indexing  the  amplitude 
reference  table  (Calibration  Record  Words  256-383)  with  the 
log  detector  counts  obtained  in  the  ADT  data  record  for  the 
ATr,  AE1,  and  reference  channels. 

ZI  =ATr  phase  -  REF  phase  +  AGAMA 

12  -  AE1  phase  -  REF  phase  +  EGAMA 

ATr  phase,  AE1  phase,  and  REF  phase  are  found  by  indexing  the  phase  refer- 
n,e  table  (Calibration  Record  Words  1-255)  with  the  phase  detector  counts  obtained 

in  the  data  record. 

AGAMA  is  a  phase  offset  between  the  reference  channel  and  the  ATr 
channel,  found  in  Calibration  Record  Word  596 

EGAMA  is  a  phase  offset  between  the  reference  channel  and  the  AE1 
channel,  found  in  Calibration  Record  Word  597 

Peak  transmit  power  is  determined: 

NB  POWER  =  PWRCN  +  PWRSN  log  XPKPWR 
WB  POWER  =  PWRSN  +  PWRSW  log  XPKPWR 

where 

PWRCN  is  Calibration  Record  Word  620 
PWRSN  is  Calibration  Record  Word  621 
PWRCW  is  Calibration  Record  Word  622 
PWRSW  is  Calibration  Record  Word  623 
XPKPWR  is  Data  Record  Byte  344 

The  type  of  returned  pulse  is  obtained  from  Data  Record  Byte  817,  Bits  1  -4, 


where: 

Code  Pulse  Return 

0  NB 

1  WB 

2  Phantom  (not  expected  on  ADT) 

3  WBS 


4 


Code 


Pulse  Return 


4  not  used 

5  DBLT 

6  not  used 

7  SDBLT 

Range  offset  is  obtained  from  Data  Record  Bytes  832,  833,  and  834. 

DBLT  waveform  status  information  includes: 

Calibration  Record 
Word  No. _ 

Alt  at  which  DBLT  is  initiated  643 

Alt  at  which  DBLT  is  terminated  644 

The  following  offset  range  scan  status  information  is  listed: 


Calibration  Record 

Exo -atmospheric  Word  No. _ 


Alt  at  which  slaved  mode  is  initiated  631 

Alt  at  which  slaved  mode  is  terminated  632 

No.  of  dwells/scan  633 

Initial  range  offset  (m)  634 

Range  offset  increment  (m)  635 

Total  no.  of  pulses/dwell  636 

Calibration  Record 

Endo -atmospheric  Word  No. _ 


Alt  at  which  slaved  mode  is  initiated  637 

Alt  at  which  slaved  mode  is  terminated  638 

No.  of  dwells /sc  an  639 

Initial  range  offset  (m)  640 

Range  offset  increment  (m)  641 

Total  no.  of  pulses /dwell  642 


PRF  is  IPRF,  determined  from  the  transmitted  PRF  for  the  particular 
waveform  on  the  ADT. $ 


# 


See  Ref.  2,  Appendix  F. 
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Radar  status  is  obtained: 
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III. 


OPERATION 


A.  Input 
Title 

Launch  Time  (GMT  total  ms) 

A/D  option 

First  and  last  pulse  nos.  of  processing  intervals 

Skip  interval  (pulses) 

No.  of  processing  intervals 

A  sample  input  is  shown  in  Appendix  A. 

CARD  1  (HO,  315,  IX,  A4) 

(Col.) 


1-10 

ILNCH 

Launch  time  in  GMT  total  ms 

11-15 

NVALS 

No.  of  processing  intervals 

16-20 

IWH7 

A/D  option:  0  =  Gate  52;  1  =  IMOVP 

21-25 

u 

IAUTO 

0:  NS  KIP  =  0  during  WBS,  DBLT,  and  SDBLT  operation 
1:  NS  KIP  used  as  input 

27-30 

TITL 

Title  for  listing 

CARD  2 

(6110) 

1-10 

NSTART(l) 

First  pulse  no.  of  initial  processing  interval 

11-20 

NSTOP(l) 

Last  pulse  no.  of  initial  processing  interval 

21-30 

NSKIP(l) 

No.  of  pulses  between  each  line  output 

31-40 

NSTART(2) 

First  pulse  no.  of  second  processing  interval 

41-50 

NSTOP(2) 

Last  pulse  no.  of  second  processing  interval 

51-60 

NSKIP(2) 

No.  of  pulses  between  each  line  output 

Repeat  Card  2  as  necessary. 


'f  Applies  only  to  WB  ADT’s. 
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B. 


Output 


All  input  parameters  are  summarized  at  the  beginning  of  the  listing. 
This  is  followed  by  a  summary  of  the  offset  range  scan  parameters  in  effect  for  the 
mission,  and  a  summary  of  the  meaning  of  all  mnemonics  that  can  appear  in  an 
ALERT  listing. 

The  ALERT  listing  includes  the  following:  time  (TAL  and  GMT  h, 

# 

min,  s,  and  ms),  Alt,  R,  R,  Az,  El,  NB  LC  RCS,  A/D  count  (Gate  52  or  IMOVP), 

##  . 

Tr  error,  El  error,  LC  attenuation,'  peak  power,  range  offset,  pulse  no.  and  type, 
and  status  information.  Status  information  is  listed  only  when  a  change  occurs. 

A  sample  listing  is  presented  in  Appendix  B. 


w 

This  R  is  computed  by  the  Real  Time  Pr 
The  best  estimate  of  R  should  be  compu* 

Called  Az  error  in  listing. 

Called  AGC  in  listing. 


and  only  approximates  the  true  R. 
erentiating  R,  which  is  accurate. 
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PROGRAM  LIMITATIONS 

NVALS  —  50  processing  intervals 


V. 


PROGRAMMING 


A.  ALERT  (see  Appendices  C  and  D.) 

ALERT  is  the  control  section  of  ALERT.  It  reads  the  input  cards, 
calls  the  subroutines,  and  lists  the  desired  data. 

B.  HEDADT  (see  Appendix  E. ) 

Subroutine  HEDADT  unpacks  the  ADT  header  record  which  contains 
eandwidth,  reel  no. ,  WTR  no, ,  data  of  mission,  and  mission  designator.  The  call 
statement  is  HEDADT  [ISIG,  ^  INBUF(l),  IEQM(l)] 

INPUT 

## 

INBUF(l)  First  word  in  the  ADT  header  record 

OUTPUT 


IEQM(l) 

IZ3AND 

(bandwidth:  1  =  WB,  0  =  NB) 

IEQM(2) 

ITREEL 

(reel  no. ) 

IEQM(3) 

ITWTR 

(WTR  no.) 

IEQM(4) 

IMTH 

IEQM(5) 

IDAY 

(Date  of  test) 

IEQM(6) 

IYR 

IEQM(7-9) 

ITDESG 

(mission  designator) 

C.  UNPACK  (see  Appendix  F.  )2 

Subroutine  UNPACK  unpacks  the  raw  data  from  the  ADT,  and  trans¬ 
lates  it  into  a  format  usable  by  the  IBM  360/67  computer. 

Not  used. 

## 

INBUF(2)  to  INBUF  (1803)  contain  the  remaining  words  in  the  record. 
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2 

D.  READJS 

The  first  call  to  subroutine  READJS  opens  the  file  and  reads  the  ADT 
header  record.  The  second  call  to  READJS  reads  the  ADT  calibration  record  and 
stores  the  values  in  a  buffer  area.  ALERT  extracts  the  individual  calibration  values 
it  requires.  Each  subsequent  call  to  READJS  reads  an  ADT  data  record  consisting  of 
eight  ALCOR  pulses. 

E.  REFC  (see  Appendix  G. ) 

The  tropospheric  refraction  correction  subroutine,  REFC,  is  based  on 

3 

tropospheric  refraction  tables  in  PPP-36.  A  modified  version  of  this  subroutine 
is  now  in  use. 

The  call  statement  is  REFC  (E,  R,  DEE,  DRR). 

E  =  Uncorrected  El  (must  be  between  0*  and  90s) 

R  •-=  Uncorrected  R 

DEE  -  El  tropospheric  correction 

DRR  =  R  tropospheric  correction 

The  corrected  values  to  be  computed  after  exiting  from  the  REFC 

subroutine  are: 

El  =  E-DEE 

R  =  R-DRR 

F.  STATUS  (see  Appendix  H. ) 

Subroutine  STATUS  examines  the  designated  status  words,  checks 
for  changes,  and  returns  to  control  section  for  output.  The  call  statement  is  STATUS. 

STORED  IN  COMMON 

ISTAT  Array  of  status  mnemonics 

IALSW  Not  used 

ISTSW  Change  of  status  indicator:  0  =  no  change;  1  =  change 
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APPENDIX  A 
ALERT  INPUT 

18900972  1  0  0  1J05 

00000  000000000000  0000  000  000000000000000000000000000000000000000000000000000 
5  k  1  »  9  10  M  12  13  14  15  16  I?  18  19  20  21  22  23  2<  25  26  27  29  29  30  31  32  33  34  35  3B  37  38  39  <0 41  42  43  « 45  46  47  48  49  58  51  52  53  54  55  56  57  58  59  60  61  62  63  64  65  66  67  68  69  70  71  72  73  74  75  76  77  7a  79  80 

II  IIMIIIIIII  11111111111  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  I  1  1  1  1  I  1  1 

222222222  2222222222222222222222222222222222222222222222222222222222222222222222 
33333333333333333333333333333333333333333333333333333333333333333333333333333333 

4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  •,  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4 

5  5  5  5  5  3  5  5  5  5  5  5  5  5  5  5  5  5  5  5  T  5  s  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  3  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5 

6  n:  f  n.  6  6  6  8  6  6  6  6  6  6  6  6  6  6  6  0  6  6  6  6  0  6  6  6  6  6  6  6  6  6  6  6  S  6  6  6  G  6  6  6  6  6  6  6  6  G  6  6  6  0  6  6  6  6  6  6  6  5  6  b  6  6  6  6  6  6  6  0  6  6  6  6  6  6 

j  mil  ill  77777777777777777777777777777777/77777777777777777777777777777777777777 

8  8  3  3  3  5  8  8  8  8  8  8  8  8  8  8  o  8  8  6  0  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  3  8  8  8  3  8 

: r  8  S  9  9  9  9  9  9  9  9  9  9  9  9  3  9  9  9  9  9  9  3  3  9  9  9  9  9  9  9  9  9  9  0  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  0  9  3  9  9  0  9  9  9  9  9  9  9  9 

'  -  9  '  \*\:  I.  .7  2 ’24  2? 28  29  30  31  32  33  34  35  36  3/  19  39  40  41  42<3U<5<6<7<6  49  S0  5I  Si  S3  S<S5 '<  57  56  59  60  61  C2  63  61  65  66  67  63  69  70  71  /2  73  74  7S  76  77  73  MeJ 

ILM  <rJ 


22401  24001  9 


00000000  00000000  0000000000000000000000000000000000000000000000000000000000000 
1  2  3  4  5  6  7  8  9  1011  I!  13  U  IS  16  11  18  19  20  21  22  29  24  25  26  2/  28  29  30  31  32  33  34  35  3637  38  39  46  <1  4243  « <5  46  47  49  49  50  51  52  53  54  55  56  57  58  55  60  61  62  63  64  65  66  67  68  69  70  fl  72  13  74  7S  IS  77  71 73  69 

1  1  M  I  I  HI  111111111  1  1  1  1  1  1  1  1  1  1  1  1  1  I  1  1  1  1  1  1  I  I  1  I  I  1  I  1  1  1  1  1  1  1  1  1  1  ]  1  1  1  1  1  1  1  1  1  1  1  I  1  1  1  1  I  1  I  1  1  | 
’  2  2  2  2  2  2  2  2  2  2  2  2  2  2  "  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2. 2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2 
33333333333333333333333333333333333333333333333333333333333333333333333333333333 
4  4  4 4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4 
55555055555555555555555555555555555555555555555555555555555555555555555555555555 
6  G  f!  G  G  G  6  6  6  6  6  6  6  6  <>  6  6  6  6  6  6  6  6  G  6  6  6  6  G  6  6  6  6  6  6  6  E  6  6  6  6  6  b  6  6  6  6  6  6  6  6  6  6  G  6  :  6  6  ’  G  G  6  6  6  G  6  6  6  6  6  6  6  6  6  6  G  6  6  6  6  6 

i  1  1  1  1  1  1  1  7  7  7  ?  7  7  7  7  7  7  7  7  7  7  1  1  1  7  7  7  7  1  1  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  /  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7 

8  8 "  8  8  8  8  8  0  9  3  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  3  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8 

9  0*  9  9  0  9  89  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  S  9  9  9  9  9  9  9  9  9  8  9  9  9  3  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  5  3 ■  9  9  9  9  9  9  9  0 

1  -SC/  t;  13  !1  l.»  ;j  .<  15  ;5  17  18 19  20  2i  2/  23  24  25  26  27  29  23  30  31  32  33  3<  35  36  37  38  39  40  41  42  43  44  45  46  47  <8  49  5051  52  53  54  55  56  57  58  5960  61  62  63  64  65  66  67  68  M  70  71  ?2  7?  M  7575 /7  70  7U3 
»*m  i  Cl 


APPENDIX  B 
&LERT  output 


NB  RANGE  INTO  TARGET  TRACKER 
MB  RANGE  INTO  TARGET  TRACKER 


DOUBLET  MODE  OFF 
DOUBLET  MODE  ON 
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APPENDIX  C 

ALERT  PROGRAM  LISTING 


OOUBLL  PRECISION  TLNCH »D 1 000 , TAL , TOTL 

COMMON/ I  COM/ I NPUF (  1 80 3 ) , I AZ , I  EL , I NDE X , I PPRC S , I ORS , I  RANGE , I PKPWR , 1 RST AOOO 1 0 
LOTT 1 1  ALT , INDAZtJNDAZ, I  NOEL, IRB54, I RB8 5 , I CPRCS, I 240B 1 , I 240B2, 1 2 40B3ST AOOO?G 
I,  I  24161, I  24  IB  2, I241B3.XPPAGC, IBETA.NEWA, I  BAND, NSW, RBI  AS ( 8 ) , ISVPRI , 

II  HRS, ININ, I  SEC, I  MSEC, I  ST A  T ( 21>,TRBI AS, ISTAT1, ISTAT2, ISTAT3, 1 S T4T4 , STA00D4D 
1IALSW, ISTSW.NBWB,  ISIGNO,  l l 1 5B2, JCON , NBEG , NEND , I TST , NLIMPRI , XOPAGC , 

1ITBAND, ITAPNO, IPRF, I  POLAR, I SSERR , P IF  A ( 1 6 ) ,0 1 F A 1 16 ) , PF S A ,0F S A , 

IPS S A, OSS  A, P SSL, OS SL, I  CODE, I  27  3B5, I273B6, I273B7, 1273B8, IMOVP, IMCVO, 

1 IOFFST 

DIMENSION  XN8UF ( 1803  I ,  CB  I  A S ( 8  I , XKRC S ( 5 ) 

DIMENSION  XATBLI 128 ) , XFZLN < 255  ) 

DIMENSION  I £CM( 9) , I TDESGI 3  I 

DIMENSION  N ST APT! 50  I, N STOP  I  50 > ,NSKIP( 50) 

DIMENSION  DWI  14) , IOLDSI  18) 

EQUIVALENCE < XNPUF III, l NBUFI  1)> 

EQUIVALENCE  ( I FQH I l ) , N WB AN  ) , I  I EQM ( 2 ) , I T APE N ) , ( IEQ-M  3) , ITWTR) , 

2IIEQMI4)  , I MTH  ) , I  I EQM 1 5 ) ,  ID A Y I  , t I E CM ( 6 ) , I YR  ), 

31 IEQMI 7), ITDESCI 1  )  I 

2CD8  FORMAT! *D* ,  ICX, 'THE  CODE  (  C  )  LISTED  IN  THE  OUTPUT  HEADING  DEFINE 
IS  THE ' / 1 1 X , 'CURRENT  PULSE  AS  HAVING  THE  FOLLOWING  WAVEFORM  0  * // 

2  l  3X  ,  '  CODE  PULSE  RETURN •/ 1 3X , » -  - */l5X,*0  NB 

3  RETURN • / 1 5X , *  1  WB  RE  TURN • / 15X , *  2  PHANTOM  (NOT  TO  BE  USED) 

4  ' / 1 5X , *  3  WB  SLAVED  WINDOW  RETURN •/ 1 5X ,* 4  I NCT  USED)'/ 

5 1 5X , *  5  WB  PULSE  DOUBLET  RETURN  * / 1 5X , » 6  (NOT  USE D ) • / 1 5X , ' 7 

6  WB  PULSE  DOUBLET  SLAVED  WINOOW  RETURN*///) 

2D04  FORMAT! *D* , ICX, ’THE  CODE  (RANGE)  LISTED  IN  THE  STATUS  CUTPLT  DEFIN 
1ES  THE  FOLLOWING  0'//15X,'R  *  0  DESIGNATION  * /21 X , *  *  T  TR 

2  ACK 1 / 2  IX , *  »  A  AUTO-ACCUI SI TI0N*/21X, ’  =  C  COAS T • / / 1 5X , *  A 
3=  0  NB  R ANGr  INPUT  ESTIMATOR  NOT  SLAVED  TO  WB’/21X,**  S  NB  I 

4 S  SLAVED  TO  WB'//15X,’N  a  N  NB  RANGE  INYO  TARGET  TRACKER*/ 

521 X, '  *  W  WB  RANGE  INTO  TARGET  TR ACKER »// 1 5X , »G  *  0  0  AND 

6T  WILL  ALTERNATE  WITH  EVERY  TRACK* /21X ,  '*  T  TRANSFER  (FIRST  SE 
7T  *  0 ) ' // 1 5X , ' F  x  C  CENTER  OR  CENTROID  TRACK  * /2 IX ,’ =  E  E 

8DGE  TRACK'/) 

2D05  FORMAT! • 1* , 1DX, • THE  COOE  (ANG)  LISTED  IN  THE  STATUS  OUTPUT  DEFINES 

1  THE  FOLLOW  I N60 •// 15X, ’A  *  0  DESIGNATE  */2lX, *  *  T  TRACK'/ 

2  21X , • =  W  WAIT'/21X,'=  C  COAST*  //15X,»N  *  2  ANGLE  T 

3YPE  2  SERVO* /21X, ’*  1  ANGLE  TYPE  1  SERVO’  //15X,»G  *  H  M 

4 AX  I  MUM  SERVO  BANDWIDTH* /21X, '*  L  MINIMUM  ANGLE  SERVC  BANDWIDTH* 

5/  ) 

2DD6  FORMAT!  'O',  ICX,  'THE  CODE  (MSC)  LISTED  IN  THE  STATUS  OUTPUT  DEFINE 
IS  THE  FOLLOWING  0*//15X,’M  =  *  (NOT  USED)»//15X,  ’ 

21  =0  BEACON  TRACKER  OFF’  /21X,»-  B  BEACON  TRACKER  ACTIV 

3E’//15X,'S  «  N  DETECTION  NORMAL’  /21X,*»  0  DETECTION  OVE 

4RRIDE*  / / 1 5X , * C  =  0  NB  TRANSMISSION  ONLY*  /21X,’»  W  NB/ 


o  o  n  o  o  o  o 


5WB  1RANSM ISS ION » / ) 


?00?  FORMAT  I ' O' , ICX, ' THE  CODE  <R  0)  LISTED  IN  THE  STATUS  CUTPUT  DEFINES 
I  THE  FOLLOWING  0'//i5X,'R  -  D  DCCS-OE  S I  GNAT  I CN  SOURCE  SELEC 

^TEC  BY  0CC’/21X,'=  p  PRIME  TF  (CURRENTLY  TRACKFILE)  * 

T  /2ix,'=  c  CCNsni  F  ( .ir  y  t  i  r  k  RiiTTnMC.PTr  i  * 


3 

/  2 1  x  ,  •  = 

c 

CCNSOLE 

(JOYSTICK. BUTTONS, ETC.  )  * 

A 

/2 1  x  ,  •  ^ 

♦ 

(NOT  USED)*  //21X,*DC0  SELECTED  CESIGNATIO 

5N  SCUKCE' 

/  1SX  ,  *0 

=  T ( 1-4 ) 

TRACKFILE  * 

6 

/  2  I  X  , 

’=  (111-4) 

NOMINAL  ' 

7 

/  2  1  X  , 

’=  1(1-4) 

INFLIGHT  MESSAGES' 

R 

/  2  l  x  , 

’=  F (  1-3 ) 

FIXED  POINT  • 

9 

/  2  1  x  , 

'  =  t* 

BORES  I GH T  TCWER  ’ 

A 

/  2  l  X  , 

■=  p* 

PRESS  '  /) 

2C09  FORMAT ( 'O' 

, ICX, 'THE 

CODE  (WBSO) 

LISTED  IN  THE  STATUS  OUTPUT  DEFINE 

IS  THE  FOLLOW  I  NO  C'//15X,'W  =  C  WIDE  BAND  SLAVED  MODE  NCT  IN 

2  EFFECT' /21X, '=  S  IN  EFFEC T  •  / /  1  5 X , * B  =  C  (BIT  NOT  BEING 

3USED  YETP/21X,'*  N  ENDO  SCAN  IN  PRCGR  E  S  S  * /2  1 X  ,  *  =  X  EXO  SCAN 

A  IN  PROGRESS* //lSXt’S  =  0  (BIT  NCT  BEING  USED  Y£T)*/21X,'= 

5  M  MANUAL  WBN  SCAN  */21X,*=  A  AUTOMATIC  WBS 

6SCAN  ’//, 15X, *0  =  C  DOUBLET  MODE  OFF  */21X, 

7'-  D  DOUBLET  MODE  CN'/I 

2017  FORMAT ( *0’ , ICX, 'LAUNCH  TIME  (TOTAL  SECS)  =  * , F  10 . 3 , 5X , • I W 1  I  7  =  *, 
IIS///) 

3100  FORMAT ( • 1 B AND  =  • , A2) 

3200  FORMAT ( ' 0  TI«E  HGHT  RANGE  ROOT  A/IM  ELEV  LC  A/D  A/ER 

1R  ELERR  AGC  Pwp  C  oMT  R.CFFST  RANGE  ANG  MISC  PR F  R  D  WB 

2SD  PR  I  •  ) 

330C  FORMAT!'  (SETS)  (KM)  (KM)  (M/SEC)  DEG  DEG  DBM  CNT  DEG 

1  DEG  CB  DPW  HR  M  SECS  (M)  ■  ,  5  A  1  ,  1 X  ,  3  A  1 , 1  X  ,  2  A  1  ,  A  2 , 1  X  , 

2I3,1X,A1,1X,A2,1X,4AI,/) 

3A00  FORMAT! •  ’ ,  F9. 3, A  1 ,F5. 1 ,F7.  1 ,F8. 1 ,F7. 2 ,F6. 2 ,2 14 ,2F7. 3 , F5. 1 , I  3 ,  IX , 1 

11.313, ’.  ,I3,lXtF7.1,lX,5Al,lX,3Ai,lX,2Al,A2,lX,I3,lX,Al,lX,A2,lX, 
2AA1, IX, IS) 

3600  FORMAT ('  ,F9.3,Al,F5.1,F7.1,FB.i,F7.2,F6.2,2I4,2F7.3,F5.1,I3,lX,I 

11.313, '.',I3,1X,F7.1,29X,IX,I6) 


DATA  /LC/’LC  */,/RC/'RC  */,ZWB/’WB  */,ZNB/'NB  ’/ 

TA  IF°ST3/C/, IFRST4/0/, INTAV/ 1/, IFRST2/0/, IFRSTS/C/ 

CATA  ER  /6378.I45/  , I FRST 1 /O/ , BLNKK/ ’  ■/  ,/BUSE/'  */ 

DATA  IAST2/’****'/,  I  A  S  T  /  '  *  */  ,  I BLNK /  ’  •/ 

DATA  D1000/1C0P.  DO/ 


ITST  =  1  ARE  NOT  WITHIN  THE  NSTART-NSTCP  INTERVAL 

I T  ST  =  2  ARE  WITHIN  THE  NSTART-NSTCP  INTERVAL 

ITST  =  3  AT  NS  TCP  OF  THE  NSTART-NSTCP  INTERVAL 

NEWA  =  C  MISSION  FLOWN  BEFORE  IS  CCT  7C  (CLD  ATTN.) 

NEWA  =  1  MISSION  FLOWN  AFTER  IS  CCT  70  (NEW  ATTN.) 

READ! S, 1 ) ILNCH.NVALS, IW117, I  AUTO , T I TL , ( N S T A R T ( I ) , NS  TOP ( I ) , NS K I P ( I ) 
1- I  =  1 , NVAL  S  ) 

1  FORMAT!  I  10, 315,  1X,AA/(6U0)  ) 

C 

IF(NVALS.LE.C)N‘VALS=1 

C 

I E0F=0 
I E  RR  =0 

CALL  RfcADJSI  INPUF,IcCF,  IERR) 

I F  (  I  EOF .  EC  .  1  )  GO  TC;  6P0 
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o  n  o 


I S I G=  L 

CALL  HfcOACT  (  I S I G , I NBUF (1) , I E CM ti)  ) 

NEW A=0 

IF (  IYR.GT. 70 )GT  TO  282 
I  F (  IYR.LT .70)Gn  TO  283 
IF( IMTH.GV. 1C )G0  TO  282 
IF ( IMTh.LT. 10 ) GO  TC  283 
IK  I  DAY  .LT. 15)00  TC  283 

282  NEWA  = 1 

283  CONTINUE 

I F I NWBAN. EC. C ) I AU  T0=  l 
I FRR=0 

CALL  READJSI INPUF,  IEHF,  IERR) 

I  F (  IEOF.EQ. 1 )GP  TO  680 

STOKE  THE  OF  S I  RED  CALIBRATION  VALUES 

00  21  K= 1 , 2bb 

21  XFZLN(K)=X\8UF(K) 

N  =  0 

00  20  K  =  256 1  383 
N  =  N+  1 

20  XATBL(M=XN8UF(K) 

N  =  0 

00  22  K- 5 l 2 i 527 
N=N+  I 

22  P I F A ( N ) =XNBUF ( K  ) 

N  =  0 

00  23  K=528,5A3 
N=N+  1 

23  0  I F A ( N ) =XNOUF ( K  ) 

PFSA*XNBUF(592) 

PSSA=XNBUF( 593) 

OF  SA  =  XNBUF I 59A  ) 

0SSA=XNBUF1 595) 

ACAMA  =  XN8UFIP96) 

EGAMA  =  XN6UF ( 5 97  ) 

ABIAS  =  XNBUF(  602  ) 

ED!AS=XN8UF(603) 

OEGCON=  1  t60.*.PA7  9  369)  /31A1.59 

A2BIAS=OEGCON*h8IAS 

EL8IAS=0EGC0N*FBIAS 

Ns«  ' 

00  25  K-=60A,611 
N  =  N*l 

QCIAS(N)=XNBUF(K ) 

25  RRIAS(N)-C8I A:(N) 

AZGRAO  =  XNOUF (612) 

EL  GRAD  =  XN8UF ( 6 l 3 ) 

PWRCN  =  XNBUF(62D 


20 


PWRSN=XN8UF (621) 

PWRCW=XN8UF<622) 

PWRSVi  =  XN8UFI627) 

N  =  0 

DO  27  M624.62P 
N=  N*  1 

27  XKRCS(N)=XNDiJF(K) 

PSSL=XNBl)F(629) 

0SSL=XNBUF(630) 

N  =  0 

00  28  K=631,6A4 
N  =  1 

28  01*  (  N )  =  XN8CF  (  K  ) 

CKCf.=  14.  989625/204o. 

XLX634=DW( 4 )*C*ON 
XI.X635  =  DW(5)*CKCN 
X(  X640=Dto ( 10 ) ♦CKCN 
XLX641  =  DV.l  11  (♦CKCN 

l S  TAT  1  =  0 
I S  T  A  T  2  =  0 
LCNT=0 

00  280  J  =  1 »  2 1 
ISTAT (Jl  =  IAST2 
280  CONTINUE 
JCCN*- 1 
INDEX=0 
1 TST=  1 
ITOEC= 1 
[P0LAR=0 
( rCNT=0 
[ PULS-0 

DO  120  IJ=1.NVALS 
NBLG*NSTART  (  l  J) 

[F(NSTAPTUJ).LC..0)NSTAKT(IJ)  =  1 
[ F ( NS  TCP  (  IJI.LE  OINSTOPC IJ 1=99999 
NNSET=NSK I P ( IJ)  +  1 
MNSVE=NNSET 

3  JCON=  JCCN* l 

IF  (  JC0N.EC.9.0'’  .  JCCN.EC.C  )  GO  TO  9  I 
[NCEX=( JCON-l)»9CO 
GU  TO  99 
77  JCCN= l 
[ NOE  X  =  0 
98  I  ECF  =  0 
I  ERR  =  0 
I P  AR= I BLNK 

CALL  REACJSI IN°UFi TiCF, iEKR) 

[ F ( TERR. EC. 1) |PAR=TAST 
[F( IEOF.EC. 1 )GP  TO  680 


99  I AL  S  W  =  0 
C 

CALL  UNPACK 

IF(IAUT0.EC.1)C>0  TC  100 
NNSET  =NNSVE 

I F ( I273B5.NE.O.OR. I 273B8 .NE .0 ) NN SE T= 1 
100  CONTINUE 
C 

IF  (  IFRST2.EC.11GC  TO  92 
PWRUS  l  =  P WRCN 

IFINWBAN.EC.  1  )°WRUS1  =  PWR.CW 
PWKUS2=PWRSN 

IF (NW6AN.EC. 1 )PWRUS2=PWRSW 
ZBUS£=ZN8 

IF (NWBAN.EC. 1)ZBLSE=ZW6 
RkUSE  ■  C09A3 

IFINWBAN  .EQ. 1 )RRUSE=-.000) 15 

C 

WRITE (6,200)20 USE, ITAPEN  ,TITL,(IECM(I),I=A,6) 

200  FORMAT! *  IALERT-ALCOR ’  AX,  'BANC  =  » , A2 , Ax , • REEL  NO.  =  • 

1,15,*  TITLE  *  ' *  A A  *  '  OATE  =  * , I  2 , » / '  , I  2 , » / ' , I  2 ) 

WR  I  TE  I  6,212)  INST  ART  I  I)  ,N$Tl)P(  I)  ,NSKIP  (  I  )  ,  1=  l.NVALS) 

212  FURMAT I ' 0  START  STOP  SK I P ' , l 2X , ' S T AR T  STOP  SK I P • , 1 2X , • S T AR 
IT  STCP  SKIP* , 12X, 'START  STOP  SKIP'  / I  A ( 2X , I  5 , 2X , I  5, 2X , 

2 ' 5  ,  1 0  X  )  )  ) 

TLNCH  =  CFLOAT(  II  NCH1/C1C0C 
WR  I  TEI 6,20171  TENCH, I W  117 

WR I TE  <  6, 7A31  )0W(  l ) ,DW ( 7) ,DW(2 ) ,DW( 8 ) ,DW I  3  )  ,CW(9) , 

1XLX6  3A.XLX6A0 .XLX6  35, XLX6A1 ,0W( 6 1 ,DW( 12) , DW  I  13)  ,DW( 1A) 

7  A  3 1  FORMAT! 'O’ , ICX, 'EXO-ATMOSPHERIC' ,38X, 'END 0~ ATMOSPHERIC  SCAN'//  . 
115X, 'UPPER  WBS  SCAN  ALTITUDE  (KM)  =  » , F  10 . 2 , 1 7X , ' UPPER  WBS  SCAN  AL 
2TITUDE  (KM)  *  ' , F  10.2/ 

315/, 'LOWER  WBS  SCAN  ALTITUDE  (KM)  *  ' , F 10 . 2 , 1 7X , • LOWER  WBS  SCAN  AL 
ATITUDE  (KM)  =  ',F1C,2/ 

•)15X,  'NUMBER  OF  DWELLS  PER  SCAN  *  '  ,  F 1 0 .C  ,  17X  ,  •  NUMBE R  OF  DWELLS 
6PER  SCAN  *  ' , F 1C . 0/ 

715X, 'INITIAL  RANGE  OFFSET  (Mi  *  • , F 1 0. 2 , 1 7X , • I N I T I AL  RANGE  OFF 

8SET  (M)  *  ’ , F 1 0. 2/ 

915X, 'RANGE  OFFSET  INCREMENT  (M)  *  ' , F 1 0 . 2 , 1 7X , ' R A NGE  OFFSET  INCR 

AEMENT  (M)  *  ' , F 1 C . 2 / 

B15X, 'NC.CF  SLAVEC  PRIS  PER  DWELL  *  * ,F10.0, 17X, 'NC.CF  SLAVED  PRIS 
C  PER  DWELL  =  '.F1C.0// 

QUX, ’UPPER  DOUBLET  MODE  ALTITUDE  (KM)  *  »,F10.2  , 

C13X, 'LOWER  DOUBLET  MODE  ALTITUDE  ' KM )  *  ’  , F  1C . 2 ) 

Will  TE(6,81A9) 

8 1 A9  FORMAT!///) 

WR I TE ( 6 , 2000 ) 

WR  I  TE  (  6 , 200A  ) 

WR I TE ( 6 , 2005 ) 

WR I TE ( 6 , 20C6 ) 

WR  I  TE  (  6 , 20C  7  ) 

WRITEI6.20C9) 

WRITE(6,31C0)ZRUSE 
WR I TE ( 6 , 3200 ) 

WR ITE (6, 3  300) ( I  ST  AT ( J ) , J*l, 18) 

C 

I F  RS  T  2=  1 
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92  CONTINUE 

IF  I NUMPR I .LT.NSTART I  I J ) .CR.NUMPRi .GT.NSTOPI I J ) )GO  TC  3 

ITCT=(3600*IHRS+60*IMIN+1 SEC ) *1000+ I  MSEC 
ITAL=ITOT-lLNCH 

tal*dfloat<  ital )/diooc 

DO  710  K*  1 ,  1 8 
710  IOLDS(K|=ISTAT(K» 

CALL  STATUS 

I F ( IFRST9.EQ.0IGC  TC  LO 
I  PUL  S* I  PUL  S+  1 

IFI IPULS.GE.NNSET )G0  TO  87 
IFI  ISTSW.EC.dCO  TO  L  1 0 

WRITEI6,90)TAL, I  PAR, ( I  ST AT (I) , 1=1, 18) .NUMPRI 
90  FORMAT ( »  ',F9.3,AI,07X,5A1,1X,3A1,1X,2A1,A2,1X,I3,1X,A1,1X,A2,1X, 
1-9AI.IX.I5I 
L  CNT  =  LCNT ♦ 1 
GO  TO  118 

07  I  PUL  S  =  C 
GO  TO  11 

10  I FRST9* 1 

11  I ADOUT  = IRB59- 1 

IFI  IM117.EG.1) I ADOUT* I  MO VP 
IFI  IC0CE.EC.5)X0PAGC  =  XPPAGC 
IFI  IC0CE.EC.7)X0PAGC*XPPAGC 
RDOT  *  I  I  ROOT/ I  019  2.0  I  1*19.9  09625 

RANGE* I  FLOAT  I IPANGE 1/2096000. ) • 1 9. 9 096 25* TRB I A S* . 1 9909625 
TTCCR*  (RANGF/299776.  )* I  ROOT/ 1 000 . ) 

RANGE=RANGE+TTCOR 

RRCOR*RRUSE*RDPT 

RANGE=RANGE*RRC0R/1000. 

APPOP=( I IPPRCS/255.O)*0O.O)-9O.O 
I PPRCS= APPOP 

APPOP= ( I  IOPRCS/255. 01*00. 01-90.0 
1 0  PRC  S  =  A  PPOP 

AZ  =  I I AZ*2*3 191.59265358)/ I  2.0** 1 7) 

XAZ=AZ*.057295P 

X AZ  =  X AZ ♦ AZB I  AS 

EL=I |£L*2*3191. 592653501/(2. 0**17) 

XEL=EL*. 0572950 
XEL=XEL+ELB IAS 

CALL  REFCIXEL, RANGE, c CORF, RFORF) 

RNGF=RANGE-RCORF 
ELVF=XEL-ECORF 
RADEL=ELVF*. 017953 

CALT=SGRT( RNGF **2* ER*ER+ 2 . *RNGF *ER*S I N I R ADEL ) )-ER 

RANGE=RNGF 

EL*EL VF 

AZ=XAZ 

XPKPWR= I PKPWR 

IFI  IPKPWR.LE.OIGC  TO  39 

P0WERT=PWRUS1*PWRUS2*AL0G10(XPKPWR ) 

I PKPKR=POWERT 
39  CONTINUE 

XOFFST*! FLOAT  I I0FFST)/209C. ) *19.98962 5 
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I F 1 124181. GT.1?7) GO  TO  6310 

124181=124181+128 

GO  TO  6311 

6310  CONTINUE 

I F ( I241B1.LT. 129IGC  TO  6311 
124161=256-124181 

6311  CONTINUE 

I F I I241B2.GT.1271G0  TO  6312 

124182=124182+128 

GO  TO  6313 

6312  CONTINUE 

IFI  I241B2.LT.  1791GC  TO  6313 
124182=256-124182 

6313  CONTINUE 

IH 124183. GT.1271GC  TO  6314 

124103=124183+128 

GO  TO  6315 

6314  CONTINUE 

IFI  I24183.LT. 129.)  GO  TO  6315 
124183=256-124183 

6315  CCNTINUE 
C 

ZI=XFZLNI I241B21-XFZLNI I  24  IB  1 l+AGAMA 
COST A  =  COS I  2  1  1 

P  =  X A TBL I  I  240821-XATdL I  l24Cbl! 

/'ZtRR  =  AZGRAC*2.*3.t4159  3*(10.**IP/20.))*CCSTA 
AZERR=AZERR*57.2958 

C 

Z2  =  XFZLN(  1241831-XFZLNI  124  IB  1  ) +EGAM A 

COSTE=COSI Z21 

P=XATBL(  I240831-XATBL I  I  2408 1) 

ELERR=ELGRAC*2.*3. 141593* (10.**(P/2C.))*CCSTE 
ELERR=ELERR*57.2958 

C 

LCNT=LCNT ♦ 1 

1FILCNT.LT. 541C0  TO  689 
WRITEI6.31001ZPUSE 
WR I TE I  6  *  3200 ) 

WRITEI6, 33001  I  I OLCS I J 1 , J= 1 , 1 8 ) 

LCNT  =  0 
689  CONTINUE 
657  CCNTIN...E 

IFI I STSW.EC.C1C0  TO  645 

WRITE(6,34C0)TAL, I  PAR, CAL T ■ RANGE , ROOT , AZ , EL ♦ I PPRCS , I AOCUT , AZERR , 
1ELERR, XPPAGC, IPKPWR, I  CODE, I  HRS, IMJ  N, 1  SEC, I  MSEC , XOFF  ST , 

1 1  I STAT ( J 1 , J=l, I  8) .NUMPRI 

GO  TO  650 

645  WRITE  I  6, 3600  IT «L, I P AR , C AL T , RANGE , R DOT , AZ , E L , I F PROS , I ACCUT , AZERR , 
1ELERR, XPPAGC, I PKPWR, I  CODE , I  HRS , I M I N , J S EC , I  MSEC , XGFF S T , NUK PR  I 
650  CCNTINUE 
C 

118  IFINUMPRI.LT. NSTCPI IJ) 1GC  TO  3 
IFRST4=0 

1  PUL  S  =  0 
I F  R  ST  1 =0 

119  I FR  S  T  3  =  0 
C 

120  CCNTINUE 
C 

GO  TO  125 

680  WRI TE I  6, 109 1NUMPRI 

109  FORMAT! '  END  OF  FILE  REACHED  LAST  NUMPRI  VALUE  =  ’,(10) 

125  RETURN 
END 
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APPENDIX  D 

ALERT  FLO  ’  DIAGRAM 

f  START^ 


READ 

INPUT 

CARDS 


/  RE ADIS 

READ  A 
v  record 


'hedadt  \ 

UNPACK 

HEADER 

RECORD/ 


/READTS \ 

/  READ  \ 
.CALIBRATION/ 
\  RECORD  / 


SET 

CALIBRATION 
VALUES  XNTO 
LOCATIONS 


APPENDIX  D-2 


AFPENDIX  D-3 


jt 

/ - 1  VES  /tOUNTER\ 

<2;iok— -C  c  NSTOP  v> 

> — 1  \  / 

r 


APPENDIX  E 

SUBROUTINE  HEDADT  PROGRAM  LISTING 


CALL  HECACT  { ISIG.INBUF.IEQU) 

ISIG  =  l  'JNPACK  THE  20  WORD  ADT  HEADER 


START 

ENTRY 

HEUADT 

XIS1G 

SPACE 

EQU 

4 

x;cal 

EQU 

5 

X  1  EQU 

ECU 

6 

BASE 

ECU 

12 

HEDADT 

SPACE 

SAVE 

( 14,12), T,* 

BALR 

12, C 

USING 

* , BASF 

ST 

13, SAVE A+4 

LA 

7, SAVDA 

ST 

7,8(0,13) 

LR 

13,7 

SPACE 

LM 

SPACE 

L 

ST 

ST 

SRL 

ST 

L 

SLL 

SRL 

ST 

SPACE 

L 

ST 

Si 

SRL 

ST 

L 

SLL 

SRL 

ST 

L 

SLL 

SRL 

ST 

SPACE 

SR 

IC 

ST 

>  VC 

SPACE 


XISIG,XILCU,0(  l  I 


MBAND 


MREEL 


RETURN 


TEMPI 

TEHP2 

SAVEA 


RETURN 

CNOP 

CC 

CC 

DC 

END 


a.omcAL) 
a.TEMf-l 
8,  TEMf>2 
8,31 

a.OIXTECU) 
a ,  TEM0  1 
8,1 
8,25 

8, A (/'ECU) 

8,4(XICAL) 

8, TEMPI 

8,  TEMP2 
8,16 

a ,  a  ( x  i  ecu ) 

9,  TEMPI 

a,  16 
8,24 

8, 121XIEQL) 
8 ,  TEM*’ 2 
8,24 
8,2  4 

8, 161XIEQU) 


8,8 

8,8(X1CAL) 

8 , 2C ( X 1 EQU )  MVEAR 
24(9,XIEQU).9(XICAL) 

13, SAVE A+4 
V  (  14,12)  ,T 
0,4 
F  *0’ 

F  ’  0  * 

1 8  A  (  ♦  ) 


MMNTH 


MISSION  DES. 
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APPENDIX  F 

SUBROUTINE  UNPACK  PROGRAM  LISTING 


CSECT 

ENTRY 

UNPACK 

UNPACK 

SAVEL 

CROP 

15 

CNOP 

0,4 

BALR 

2,0 

USING 

START, 2, 3 

START 

L 

3, BASA 

L 

4 ,  DU8IJF 

L 

5 ,  DUBl'F 

L 

6 ,  D08UF 

A 

5 , =F  *  4096  1 

A 

6,=F'R192* 

USING 

CBUF , 4 , 5 , 6 

B 

STARTI 

CU8UF 

CC 

VI  I CCM ) 

BASA 

CC 

AISTAPT+4C96! 

START1 

L 

8,=F'l • 

ST 

8,  I  ALSW 

LA 

B,IN8l'F  NLMP 

MVC 

TEMP ( 3  > , 0 ( 8  > 

MVC 

TEMP2 I 31,0(81 

L 

9, TEMP 

SLL 

9,0 

SRL 

9,16 

S 

9, ONE 

SR 

8,8 

M 

8, EIGHT 

A 

9 ,  JCON 

'  T 

9.NUMPRI 

L 

9 ,  NBEG 

c 

BH 

SPACE 


9 , NUMPP  I 
CCELTAR 


LA  8 , WC2  3  3  COMPUTE  GHT 

A  8,  INDEX 

MVC  TEMP ( 3 ) , G ( 8 ) 

L  9, TEMP 

N  9,=X')FCOOCOO» 

SRL  9,24 

ST  9  *  I  HR  S  STORE  HRS 

L  9, TEMP 

N  9,=X’C03FCCOO* 

SR  A  9,16 

ST  9 ,  I M  I N  STORE  MINS 

L  9, TEMP 

N  9 ,  =X  *  POCO  3F0  J  * 

SR A  9,8 

ST  9 ,  I  SEC  STORE  SECS 

LA  8 ,  WC  234 

A  8,INOTX 

MVC  TEMP (31,0(8) 

L  9, TEMP 

N  9 , =X • 7FE  OCCOO  * 

SRL  9,21 

ST  9,IHSTC  STORE  MSEC 

SPACE 


GOOD  I 


GCCCN 


LA 

8.WD277 

A 

8, INDEX 

MVC 

TEMPI 7  ) ,0(0) 

L 

9, TEMP 

N 

9 , -X ' 7FFFCOOO ' 

SRL 

9,  14 

ST 

9,  I  A L 

c  A 

8.WC276 

A 

8,  INDEX 

MVC 

TEMPI1), 0(0) 

L 

9, TEMP 

N 

9 ,  *X  • 7FFFCC00 ' 

SRL 

9,14 

ST 

9,  1  EL 

LA 

8  ,  WC268 

A 

8,  INDFX 

MVC 

TEMPI1), 0(8) 

L 

9, TEMP 

N 

9  ,  =X ' FFC0000C' 

SRL 

9,24 

ST 

9, IPPRCS 

LA 

8 , WC265 

A 

8, INDFX 

MVC 

TEMPI 7  )  ,  0  I  8  ) 

L 

9, TEMP 

N 

9,  =X  '  FFFFECOO ' 

SRL 

9,13 

ST 

9, TEMP2 

LA 

R.WC267 

A 

8  y INDEX 

MVC 

TEMPI  7) ,01 8i 

L 

9, EEMP 

N 

9 ,  =X ' F  FFFOCOO ' 

SRL 

9,16 

A 

9,  TEMP2 

SLL 

9,11 

ST 

9.TEMP2 

LA 

8.WC266 

A 

8,  INDFX 

MVC 

TEMPI1), 0(3) 

L 

9, TEMP 

N 

9 ,  -X ' FFE 00000 ' 

SRL 

9,21 

A 

9 ,  T  EM°2 

ST 

9,  IRAA'GE 

LA 

3 ,  W  C  1 1 5 

A 

0,  INDFX 

MVC 

TEMPI1), 0(8) 

L 

9, TEMP 

N 

9 ,  =X ’ Pc  CF COOP ' 

SR  A 

9,16 

ST 

9, IPKPWR 

LA 

0.WC269 

A 

8,  INDFX 

MVC 

TEMPI  7) ,0  I  8) 

L 

9, TEMP 

C 

9,  =F»n» 

STORE  A2 


STORE  ELEV 


STORE  PP  CBSM 


STORE  RANGE 


STORE  PEAK  PCNER 
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L'OTGl 

COTG2 


BNL 

DCTGL 

N 

9, =X«  7FFFFFC0' 

SR  A 

9,8 

LCR 

9,9 

B 

DCTG2 

SR  A 

9,8 

ST 

9, 1RDPT 

LA 

8  ,  HD  l  A 

A 

8,  INOFX 

M  VC 

TEMPI  7), 0(8) 

' 

9, TEMP 

N 

9, =X*  7FC00C00 • 

SRL 

9,24 

LA 

9,1(91 

ST 

9, IR884 

LA 

8 , HC  2 A  8 

A 

8, INOFX 

MVC 

TFMPM),0<8) 

L 

9 , TEMn 

N 

9,=X*C0FFC0C0' 

SR  L 

9,16 

ST 

9,  ICPRCS 

SPACE 

LA 

8 ,  HD  1 1  7 

A 

8,  INDEX 

MVC 

TEMP  I  7 ), 0  I  8  ) 

9, TEMP 

N 

9 , =X ' FFCOOCOO ' 

SRL 

9,24 

ST 

9, | MOVP 

SPACE 

L 

9, TEMP 

N 

9,=X'OOCOFFOO* 

SRL 

9,8 

ST 

9, IMCVQ 

SPACE 

LA 

8.WC273 

A 

8,  INDFX 

MVC 

TEMP ( 7  )  , 0 ( 8 ) 

L 

9, TEMP 

N 

9,=X'F0C0CC00' 

SRL 

9,28 

ST 

9,  ICOPE 

SPACE 

L 

9, TEMP 

N 

g.^x'necooooo* 

SRL 

9,27 

ST 

9, I 277B5 

L 

9, TEMP 

N 

9,  =X  *04000000' 

SRL 

9,26 

ST 

9, I 277B6 

L 

9, TEMP 

N 

9 , =X ' 02CCCCC0  ' 

SRL 

9,25 

ST 

9, 127787 

L 

9, TEMP 

STORE  R-DCT 


A/D  COONT-R8  52 


STORE  CP  C8SM 


ARE  PRIMARY  AND  OFFSET  MOVING 


1 S  OFFSET  H1NDCW  MOVING 


COMPUTE  THE  CODE  FOR  PRI 


WBS  MODE  INDICATOR 


ENDO-EXO  SCAN  INDICATOR 


MBS  SCAN  MODE  INDICATOR 
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DCU0LET  MODE  INDICATOR 


N  9 ,  =X  *  f)  I COOOOO  • 

SRL  9 ,29 

S'  9,127180 

SPACE 
SR  9,9 

ST  9 ,  I  OF  F  ST 

L  9 , I  COPE 

C  9, THREE 

HE  OFFCOw 

C  9, SEVEN 

HE  OFFCQH 

8  OFFSKP 

SPACE 

CFFCCM  LA  8.WC278 

A  8 , I NCr  X 

MVC  TEMP ( 1 1 , C ( 8  ) 

SR  9,9 

L  9, TEM 

C  9, ZERO 

8NL  RPLUS 

N  9,=X*7FFFFFOO* 

SR  A  9,8 

1.CR  9,9 

B  RNEC 

RPLUS  SPA  9,8 

RNEG  ST  9, ICFFST  RANGE  OFFSET  FOR  SLAVED  WINDC* 

SPACE 

OFFSKP  LA  8.WC2AO 

A  8, INDEX 

MVC  TEMP ( i 1 , 0 ( 8 ) 

L  9, TEM” 

N  9,=X*7FC0CC00* 

SRL  9,29 

LA  9,1(91 

ST  9.I2APU1 

L  9 ,  TEMr'' 

N  9 ,  =X  ’ 007FOOOO  * 

SRL  9,16 

LA  9  ,  i  (  S'  1 

ST  9, I  2908  2 

L  9, TEMP 

N  g.^X’POCOTFOO5 

SRL  9,8 

LA  9,1(9) 

ST  9,129083 

LA  8.WC291 

A  8 , I NOFX 

MVC  TEMP  131,0(8) 

L  9, TEMP 

N  9 , *X ’ FF  COOOOO ’ 

SRL  9,29 

LA  9,1(9) 

ST  9,129161 

L  9, TEMP 

N  9 ,  =  X ’ OOF r OCOO  ’ 

SRL  9,16 

LA  9,1(9) 


CKF SCP 

CKSSPP 

INCET 

CKSSCP 

PPTEST 


ST  9  ,  I  2  A 1  B  2 

L  9.TEMF 

N  9,=XTCCOFFCO' 

SRL  9,8 

LA  9,1(9) 

ST  9 , I  2 A  1 8  3 

LA  8,toC2F3 

A  p.inofx 

M VC  TEMPI  1 ) ,0( 8) 

L  9 , TE 

N  9  ,  -X  '  F CCOCCOO  * 

SRL  9,2b 

LA  l  I ,  f  (FA 

LE  0,0(9,11) 

STE  O.XPPAGC 

L  9 , TEM  n 

N  9,=X'FFCOCCOO* 

SRL  9,22 

LA  I  I  , C I F  A 

LF  0,0(9,11) 

STE  O.XCPAGC 

L  9 , 2  ERF 

ST  9  ,  I SW  S  S  P 

ST  9  ,  I  SW S  SC 

ST  9 ,  I  SSFRR 

LA  R  ,  to  C  2  3  9 

A  8,  INDEX 

M VC  TEMP(3),0(8) 

L  9 , TEMn 

N  9,=X,FCC0C200« 

C  9.2ERF 

RE  CKFSO^ 

LE  0  ,  PFS  A 

AF  C.XPPAGC 

STE  O.XPPAGC 

L  9 , TEMn 

N  9 , =X  * FOCCC 1 00 ' 

C  9 , 2ERC 

bE  CKSSPn 

LE  O.CFSA 

AE  O.XCPAGC 

STE  O.XCPAGC 

L  11, TE“P 

N  1 1 , =X  ’  CC 8C2CCC  ' 

C  I  l  , -F ’ 0 ' 

BNE  CKSSGP 

L  8, ONE 

ST  8 , I SSpRR 

B  CCELTAR 

L  l  1  ,  TEVP 

N  1 l , =X ’ OC AC l COC  ' 

C  l  1 ,  =F  '  0  ' 

BE  INDET 

LA  9 , WC239 

A  9.IN0FX 

MVC  TEMP(3),0(9) 

L  l  C  ,  T  E  M  P 

LA  9 ,  WC2t;2 


GET  VALLE  FRCM  PIFA  TABLE 

GET  VALUE  FRCM  CIFA  TABLE 


CHECK  BIT  23  (PFSA) 

ACC  IN  PFSA  VALUE 
CHECK  BIT  2 A  ( CF S A ) 

ACC  IN  CF  S  A  VALUE 

INDETERMINATE  SITLATICN 


ALX.MICR.toCRD  INTC  REG. 10 
AUX.MICRCWAVE  toORD  INTC  REG. 11 
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A 

9,  INDFX 

MVC 

TEMPO), 019) 

N 

1 0 ,  =  X  *  OC  8C2C00 • 

C 

1C , =X  * 0C8C0000 • 

ONE 

S  7  A 

LC 

O.PSSL 

AE 

0, XPPAGC 

STE 

0, XPPAGC 

L 

q.OKE 

ST 

9,  I  SW<SP 

S  7  A 

8, NEWS 

C 

8,ZERr 

BE 

CPTEST 

L 

9, TEMP 

N 

9,=X*OOC8CCOO» 

C 

9,=F*r ' 

BE 

RDBKLf 

N 

n.^x'oeocccoo' 

C 

1 1  *  Z  EB 0 

HNE 

SLC 

NOAT  TLC 

LE 

0 «  PREVLC 

STE 

0, XPPAGC 

vvc 

JSWLC ( A ) , ONE 

MVC 

ISSERR ( A  1 ,CNE 

B 

CPTEST 

KCBKLC 

N 

1 1  »  =  X 1 OAOCCCOC ' 

C 

11  ,ZE«0 

BE 

NCATTLC 

B 

OPTEST 

SLC 

LE 

O.PSSA 

AC 

0,  XPPAGC 

STCRLC 

STE 

C, XPPAGC 

MVC 

I  SWSSn ( A ) ,CNE 

CPTfcST 

LA 

9.WC219 

A 

9, INDEX 

MVC 

TEMPO), 0(9) 

L 

1C, TEMP 

LA 

9,  WC2‘;2 

A 

9,  INDFX 

MVC 

TEMP ( 7 ) ,0(9) 

L 

11, TEMP 

LA 

9.WC272 

A 

9,  INDEX 

MVC 

TEMPI  ’1,0(9) 

N 

IC,=X'CC4C1000’ 

C 

1C,=X*00AC0C0C’ 

BNE 

S  70 

LE 

O.OSSL 

AE 

0 , XOPAGC 

STE 

O.XCPAGC 

L 

9, ONE 

ST 

9, (SWSSC 

RANGE  TR.WCRD  INTC  1EMP 


BIT  9  x  C  (COND.A) 
ADD  IK  P  SSL  (CCND.B) 


OLD  OR  NEW  ATTEN. 


ATTENLATCR  RE ACBACK 
S  7 A  ARMED 
STATUS  READ  BACK 


S74  NOT  ARMED 
STATUS  R E ACBACK 


ACC  IK  PSSA  ICCND.B) 


AUX.MICR.WCRC  INTC  REG. 10 
AUX. MICROWAVE  WORD  INTC  REG. 11 


RANGE  TR.WCRD  INTC  TEMP 


BIT  1C  =  C  (COND.A) 
ACC  IK  CSSL  ICCND.B) 
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S  75 

L 

8  , NEWft 

OLD  OR  NEW  ATTEN. 

C 

B  *  7  ERE 

BE 

CUT  1 

L 

9, TEMP 

N 

9  ,  =  X  '  EOC  ACOOO • 

C 

9,=F*E» 

BE 

RCBKRE 

ATTENLATCR  READBACK 

N 

1  1 ,  =  X  '020CC000 • 

S  7 5  ARMEC 

C 

1  1  *  ZERO 

STATUS  RE  AC  BACK 

BNE 

TRC 

NG A  T  T  RC 

LE 

C , PREVRC 

STE 

0 ,XCP^GC 

HVC 

JSWRC (  A ) .ONE 

MVC 

ISSERR( AI.CNE 

B 

CUT  1 

RDeKRC 

N 

11,=X*0  OCCOOC* 

S  7  5  NC  T  ARMCC 

C 

11, ZERO 

STATUS  REACUACK 

BC 

NC AT  T°C 

B 

OUT  1 

SRC 

LE 

O.OSSA 

AE 

0,XCP«GC 

ACC  IN  CSSA  (CCND.e) 

STGRCC 

STE 

O.XCPAGC 

MVC 

1SWSSE1 A ) ,CN£ 

cun 

L 

9, JSWI C 

C 

9 »  Z  ERE 

BNE 

OUT? 

LE 

O.XPPAGC 

SE 

0,=E' 16' 

STE 

O.XPPAGC 

STL 

0, PREVLC 

CUT? 

L 

9,  JSWRC 

C 

9, ZERE 

BNE 

E  N QALrR  T 

LE 

0 , XL  P  A  GC 

SE 

Q,=EM6' 

STE 

O.XCPAGC 

STE 

0, PREVRC 

ENCAIERT 

MVC 

JSWLCI A  1 .ZERO 

MVC  JSVvRCI  A  ) ,  ZERO 

LA 

8,  INBIIF 

MVC 

TEMPI 3) ,0(81 

L 

9 , TEMD 

SRL 

9,31 

C 

9, ZERE 

BE 

NBANO 

LE 

2.RBIAS+  16 

WICF  BANC  TAPE 

STE 

2, TRBTAS 

LCPCLAR 

L 

9, ISWSSP 

C 

9, ONE 

BNE 

CCELTAR 

LE 

2.KBIAS+2A 

AE 

2 , TRB I  A  S 

ACC  IN  P  SS  A-RB I  AS ( 7 ) 

STE 

2, TR81 AS 

B 

CCELTAR 

N8ANC 

LE 

2.RBIAS 

NARROW  BANC 

STE 

2 , TRB I  AS 

LA 

8, WC273 

CENTER  CK  EDGE  TRACK 
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A  B.INOFX 

MVC  TEMPO), 0(8) 

L  9, TEMP 

N  9 , =X  •  00C  10000 • 

C  9 , ZERO 

BNE  CKNBEPGE  EDGE  TRACKING 

8  COELTAR 

CKNBEDGE  L  8 ,  I  RDnT  CHECK  SIGN  CE  R  OCT 

C  8, ZERO 

8H  CKNBLPW 

LE  2.R8IAS+A  LEADING  EDGE  BIAS 

AE  2 , TRB I  AS 

STE  2 , TRB I  AS 

B  CCELTAR 

CKNBLOW  LE  2 ,  RB I A  S  +  8  TRAILING  ECGE  BIAS 

AE  2 , TRB I  AS 

STE  2 , TRB  f  AS 

CDELTAR  RETL 

TEMP  DC  F • 0 • 

TEMP2  DC  F  *  0 ' 

IXC  DC  F ' 0 ' 

PRINUM  DC  F ' 0  * 

IPASS  DC  F ' 0 ' 

ISWSSO  DC  F  *  0 ' 

ISWSSP  DC  F ' 0 ' 

JSWLC  DC  F • 0 ' 

JSWRC  DC  F ' 0 ' 

PREVLC  DC  E'0.0' 

PREVRC  CC  E'O.O* 

ZERO  DC  F ' 0 ' 

CNE  CC  F  •  l  ' 

TWO  CC  F ' 2 ' 

THREE  CC  F ' 3 ' 

FOUR  DC  F  '  4 ' 

SEVEN  DC  F  *  7 ' 

EIGHT  CC  F ' B ' 

CIO  DC  F'LC' 

C100  DC  F '  100 ' 

CLOOO  CC  F'lCOD' 

CBUF  DSECT 

IN8UF  DS  CL  3 

WDl  CS  CL 3  PP  '..CO  D. 

CS  CL48 

WD18  DS  CL  3 

WD19  CS  CL  3 

CS  CL27 

*029  CS  CL  3 

Vi D30  DS  CL  3 

CS  CL 8  L 

ViD58  DS  CL  1 7 1  PP  PHASE  0. 

HD  1 15  CS  CL  3 

WO  L 16  CS  CL  3 

WD  1 1  7  CS  CL  3 

W0118  DS  CL  l  7  1  GP  LOG  D. 

WD l  75  OS  CL  1  7 1  CP  PHASE  C. 

WD232  CS  CL  3 

WD233  DS  CL3 
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WC234 

CS 

CL  3 

CS 

CL  3 

WC2  36 

CS 

CL  3 

WC237 

CS 

CL  3 

CS 

CL  3 

WD2  39 

CS 

C  L  3 

WC240 

CS 

CL  3 

WC241 

CS 

CL  3 

WC242 

CS 

CL  3 

CS 

C  L  7  7 

WC252 

CS 

CL  3 

WC253 

CS 

CL  3 

CS 

C  L  2  7 

WD263 

CS 

CL  3 

WC264 

CS 

CL  3 

WC265 

CS 

CL  3 

WC266 

CS 

CL  3 

WC267 

CS 

CL  3 

WD268 

CS 

CL  3 

WC269 

CS 

CL  3 

W027C 

CS 

CL  3 

WC27  l 

CS 

CL  3 

WC272 

CS 

CL  3 

W  02  7  3 

CS 

CL  3 

WC274 

CS 

CL  3 

WC275 

CS 

CL  3 

WC276 

CS 

CL  3 

WC277 

CS 

CL  3 

WC270 

CS 

CL  3 

WC279 

CS 

CL  3 

WD28G 

CS 

CL  3 

CS 

CL  6  36° 

Ifl  l 

CS 

IF 

I  EL 

CS 

IF 

INDEX 

CS 

IF 

IPPRCS 

CS 

IF 

ICRS 

CS 

IF 

IRANGE 

CS 

IF 

IPKPWR 

CS 

IF 

IRCOT 

CS 

IF 

I  ALT 

CS 

IF 

INCA2 

CS 

IF 

JNCAZ 

rs 

IF 

INDEL 

CS 

IF 

IRB5<t 

CS 

IF 

IRB8S 

CS 

IF 

IOPRCS 

CS 

IF 

I240P.I 

OS 

IF 

1240B2 

CS 

IF 

I240B3 

CS 

IF 

I241B1 

CS 

IF 

I241B2 

CS 

lFt 

I2A1B3 

CS 

IF 

XPPAGC 

CS 

IF 

IBETA 

CS 

IF 

NEW  A 

CS 

IF 

BANC 

CS 

IF 

37. 


NSW 

OS 

IF 

RBI  AS 

cs 

flF 

I S VPK I 

OS 

IF 

I  HRS 

cs 

IF 

I  M  I  N 

OS 

IF 

I  SEC 

OS 

IF 

I  MSEC 

OS 

IF 

STAT 

OS 

2  IF 

TRBI AS 

OS 

IF 

ISTAT  I 

OS 

IF 

I  ST  AT  2 

OS  ' 

IF 

ISTAT3 

DS 

IF 

I  ST  AT  A 

OS 

IF 

I  ALSW 

DS 

IF 

ISTSW 

OS 

IF 

NBWfl 

DS 

IF 

I  S  !  GNC 

OS 

IF 

1 1 1 "  e  2 

OS 

IF 

JCCiN 

cs 

F 

NBEti 

OS 

F 

NEND 

OS 

F 

I  TST 

OS 

F 

NUMPR I 

DS 

F 

XOPAGC 

DS 

F 

I  TBAND 

OS 

F 

I  T  APNQ 

OS 

F 

IPRF 

OS 

F 

I PCLAR 

OS 

F 

1SSERR 

OS 

F 

PIFA 

cs 

16F 

C  I  F  A 

cs 

16F 

PFSA 

DS 

IF 

CFS  A 

DS 

IF 

PSSA 

CS 

IF 

CSSA 

CS 

IF 

PSSL 

OS 

IF 

CSSL 

DS 

IF 

ICCOt 

OS 

F 

I273B5 

CS 

F 

1273B6 

OS 

F 

I273B7 

OS 

F 

I 273B8 

cs 

F  • 

I  MOVE 

cs 

F 

IMCVC 

cs 

F 

I  OFFS  T 

cs 

F 

END 

j 

i 
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APPENDIX  G 

SUBROUTINE  REFC  PROGRAM  LISTING 


SUBROUTINE  REFC  I  E  ,  R ,  OEE  ,  CRR  )  VERSION  6/16/70 

01  MENS  ION  CEI 16,8 ) ,CR(16,8) ,EOI 16) ,R0(8I 

OATA  OE/O.O  ,0.0  ,0.0  ,0.0  ,0.C  ,0.0  ,0.0  ,0.0  , 

10.0  ,0.0  ,0.0  ,0.0  ,0.0  ,0.0  ,0.0  ,0.0  ,0.0313, 

20. 0303, 0.0292, 0.0287, 0.0282, 0.02 72, 0.0 262,0. 0253,0.0243,0. 0223, 
30.0214,0.0195,0.0171,0.0135,0.0075,0.0  ,0.0937,0.0848,0.0770, 

40.0732,0.0694,0.0627,0.0571,0.0522,0.0480,0.0412,0.0385,0.0337, 
50.0278,0.0205,0.0105,0.0  ,0.1850, 0.1520, 0.1250, 0.1140,0. 1050, 

60.0904,0.0795,0.0708, 0.0636,0.0523,0.0478,0.0405,0.0323,0.0229, 
70.0114,0.0  ,0.5310,0.3070,0.2120,0. 1830,0.1600,0. 1280,0. 1060, 

80.0899,0.0780, 0.0612,0.0550,0.0455,0.0354,0.0246,0.0120,0.0  , 

90. 7560, 0. 3720,0. 2400,0.2020,0. 1750,0. 1370,0.1120,0.0942,0.0811, 
AO. U631 ,0.0566,0.0466,0.0361,0.0250,0.0122,0.0  ,0.9120,0.4  110, 

80.2560,0.2140,0. 1840, 0.1420, 0.1 150, 0.096 7, 0.08 30, 0.0643,0.0575, 
CO. 04 72, 0.0 365, 0.0252,0.0122,0.0  ,0.9700,0.4200,0. 2600,0.2200, 

DO.  1.900,0. 1460,0.1 )  70,0.0980,0.0840,0.0653,0.0584,0.04  78,0.0369, 
HO  0254,0.0123,0.0  / 


JA1A  DK/  0. 

0,  C. 

C ,  0  ■ 

0,  0. 

0,  0. 

0,  C.O,  0.0,  C. 

C,  C. 

0, 

1  0.0,  0.0, 

n.o. 

0.0, 

0.0, 

0.0, 

C.O,  22.6,  21.5, 

20.4, 

19.9 

2  19.4,  10.5, 

17.6, 

16.8, 

16.1  , 

14.8, 

14.2,  13.2,  12.0, 

1C. 4, 

8.6 

3  7.7,  67.3, 

57.9, 

50.2, 

47.0, 

44.  1, 

39.3,  35.4,  32.1, 

29.3, 

24.8 

4  22.9,  19.7, 

16. 3, 

12.7, 

9.4, 

8.1, 

13’.0,  98.5,  77.4, 

69.  7, 

63.2 

6  52.9,  44.7, 

3  fl  •  4  , 

33.4, 

26.4  , 

23.9, 

20.1,  16.4,  12.7, 

9.4, 

8.1 

6340.0, 167.0, 

103.0  , 

86.1, 

73.4, 

56.7, 

46.2,  38.9,  33.6, 

26.4, 

24.0 

7  20.2,  16.4, 

12.8  , 

9.5, 

8.2, 

405.0, 

17C. 0,104.0,  86.3, 

73.6, 

56.8 

0  46.3,  38.9, 

33.7, 

26.5, 

24.1, 

20.3, 

16.5,  12.8,  9.5. 

9.2, 

421.0 

9171.0, 104.0, 

86.6, 

73.9, 

67.1, 

46.4, 

39.0,  33.8,  26.8, 

24.3, 

20.5 

A  16.6,  13. C, 

9.8, 

8.4, 

446.0  , 

172.0, 

105.0,  87.4,  74.0, 

58.0, 

46.6 

8  39.2,  34. C, 

27.0, 

24.6, 

20.7, 

16.7, 

13.0,  10. 0,  8.4/ 

DATA  EC,RTCEC/0.01 

,2.0,4 

.0,5.0 

,6.0,8 

.0,10.0, 12.0 , 14.0, 

18. , 20 

.  , 

124. , 30. ,40. ,60. ,90. ,57.29578/ 

OAT A  R C/0. Cl , 10.  ,30., 60. ,2-0. ,400. , 1 OOC  .  , 20C0 . / 

IKK.  LE.  0.0)  CO  TD  300 
RC,  =  K/  1 . 852C  +  C0 
0U  100  I E0S  2,15 
I  -  1 7- I E  0 

IFIE.CE.EDI I ) ICQ  TC  120 
100  CONTINUE 
I  =  1 

120  DC  200  JR0*2,8 
J- 10- JRO 

IF.RG.Cb.ROI J) IGC  TC  220 
200  CONTINUE 
J*  1 

220  iriJ.EC.8ICD  TC  34C 

7R=AL0C(RC/RC(  J! ) / ALOG I RD I J+ 1 ) /RD I J )) 

IF  IE. LE. 0.0) CO  TC  320 
ZE*ALllC(E/EO( 1) l/ALCGIEUI  I  +  ll/EDII )  ) 

OE  1=  (  ICE  I  I  ♦  1 ,  JI-CEI  I,  JM»(  l.-ZKIKCEI  I  ,J+1)-0E1  !,J))*ZR)*ZE 
0E2K  ICE  I  I ,  J<  ll-CEI  I  ,  J  )  )*(  1.-2E  )  ♦  C  CE  C  I  +  l,  J+ll-OEI  I  ,  .!♦  I ))  *1 E  )  *ZR 
OEE*DE 1+CE2+CE l 1 ,J) 

DR1«( (OKI  I *1 , JI-CRI I , J  ))♦  I  l.-ZR  )♦ I  OR  I  1 ,J*1 ) -OR  1 1 , J)) *ZR)*ZE 
0R2«HCR  I  I ,  JKI-CKI  I  ,  J)  )♦(  l.-ZEI+ICRI  I  ♦  1 .  J* II -OR l  I  ,  J*1  l)*ZEI*ZR 
DRK«IDRl*0R2+DR(I , Jl  » 

CO  TO  400 
300  0CE=>0.0 

OR  R*0 . 0 
DC  TD  400 

320  0EE*DE( I, J)+(OF< I , J+l I -DEI I,J) )*ZR 
DRR=ORI 1 , JI+IDRI I, J+l I  — OR  I  I  ,J))*ZR 
GO  TO  400 

34C  DELTKE-EOI  III  /(EDI  I  ♦  1 1  -ED  I  I)  ) 

OEE«OElT*ICE( I+l, JI-OEI I , Jl  l+DEI I ,J) 

ORR*DELT*(CRI 1+ 1 , JI-DRI I , Jl l+ORI I, J) 

400  ORR=ORR*. 30480-03 
RETURN 
END 
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APPENDIX  H 

SUBROUTINE  STATUS  PROGRAM  LISTING 


*  THIS  ROUTINE  DECODES  STATUS  INFO  AND  PACKS  IT  INTO  THE  OUTPUT 


* 


CSECT 

ENTRY 

STATUS 

STATUS 

SAVEL 

DROP 

15 

CNOP 

0,4 

BALR 

2 ,  D 

USING  START, 2, 3 

START 

L 

3, BASA 

L 

4  ,  DUB1IF 

L 

5 , DU8UF 

L 

6 ,  DUBIJF 

A 

5 »  =F ' 4096 ' 

A 

6  ,  =F 1 B 192  * 

USING 

DBUF ,4,5,6 

B 

S  T  ART  1 

CUBUF 

DC 

V<  ICOM) 

BASA 

DC 

AI  START  +  4C96 ) 

START  1 

SPACE 

LA 

8.WC279 

A 

8, INDFX 

MVC 

WCRD  39 ) 3 ) , 0 ( 8 ) 

LA 

8.WD264 

A 

8,  INDFX 

MVC 

WCRC64 ( 3 ) , 0 ( 8 ) 

Lrt 

8.WC272 

A 

8,  INDFX 

MVC 

WCRD  7  ?  (  3  )  ,  0  (  8  ) 

MVC 

WCRD7 1 ( 3 ) , 3 ( 8 ) 

SPACE 

L 

9 , WCRD  35 

N 

9,=X'00800CCC« 

ST 

9, WCRD39 

L 

9 , WCRD64 

N 

9, =X ' FFFFECCO • 

ST 

9 , WCRD  64 

L 

9 , WCRT  7  2 

N 

9,=X'A7F3C700' 

ST 

9.WCRP72 

L 

9 , WCRD  7  3 

N 

9,«X'CF1FF7C0* 

ST 

9,  WCRD73 

SPACE 

SR 

9,9 

ST 

9, ISTSW 

L 

9 , WORT  39 

C 

9.0W0RD39 

BNE 

XFERW 

L 

9, WCRP64 

C 

9 , 0W0RD6  4 

BNE 

XFERW 

L 

9 , WCRD  72 

C 

9 , 0W0RD7  2 

BNE 

XFERW 

L 

9 ,  WCRD  73 

C 

9 , 0W0P07  3 

BNE 

XFERW 

MASK  FOR  WORD  239 

MASK  FOR  WORD  264 

MASK  FOR  WORD  272 

CLEAR  STATUS  PRINT  SWITCH 


BUFFER 
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XFERW 


SETSW1 


6  RETUR 

SPACE 

L  9.WCRP39 

ST  9,0W0R039 

L  9,WCRr64 

ST  9  , QW0PD6 A 

L  9.WCRT72 

ST  9 , OWQR  D72 

L  9.WCRP73 

ST  9  ,  HWQRD7  3 

SPACE 

L  9.ISTAT2 

LA  9,1(9) 

ST  9 ,  I S T  x T  2 

C  9,=F'101' 

RL  SETSWl 

ST  9.ISTMI 

L  9, =  F  *  1  • 

ST  9 , I S  T S h 

SPACE 

L  9.WCRP72 

N  9 , =  X • POC  00  7CO • 

SRL  9 , B 

A  9,=A(PTAC) 

M  VC  STAT(U,0(9) 

L  9.WORP72 

n  9,=x'?ocoogog' 

SRL  9,29 

A  9,*A(SLWB) 

HVC  S  T  A  T  ♦  A  {  I  )  ,  0  (  9 ) 

L  9 , WCR  T  7  2 

N  9, = X • P4C  OCCOO ' 

SRL  o,26 

A  9 , *  A ( NWN  ) 

HVC  STAT*P( 1) ,C( 91 

L  9 , WCR P 72 

N  9,  »X '02000000' 

SRL  9,25 

A  9,  =  A  ( COT  ) 

HVC  S  T A  T ♦  1  2 (  1),0(9) 

L  9.WCRT73 

N  9 , =X ' 000 1 COOO  * 

SRL  9.16 

A  9 , =  A ( FEC  ) 

HVC  S  T  A  T  ♦  1  6  ( 1) ,0(9) 

L  9 , WCRP  7  3 

N  9 , =X ' 00000700 • 

SRL  9, B 

A  9*  = A ( 0  TWC  ) 

HVC  S  T  A  T  ♦  ?  0  ( 1 ) , 0 ( 9 l 

L  9.WCRP73 

N  9, =X ' 00080000 ' 

SRL  ° ,  1 9 

A  9 ,  =  A  (  N  1 2  ) 

HVC  STAT*?4( 1 ) ,0(9) 

L  9 , WCRP  1 3 

N  9, *X • OOOACOOO ' 


SET  STATES  PRINT  SWITCH 

BIT  22- 2 A 

BIT  3 

BIT  6 
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